home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Menus / eudoraMenu.tcl < prev    next >
Encoding:
Text File  |  1998-08-21  |  24.6 KB  |  903 lines  |  [TEXT/ALFA]
  1. #     <nowrap>
  2. # Built for Eudora
  3.  
  4. # version 1.1 Juan Falgueras (98/08/07)
  5. #   Added eudoraNicknamesFolder pref var to hold the path to the Eudora "Nicknames Folder"
  6. #     and added this folder in the scanning for "euNicknames" array (look for # JF)
  7. # 
  8. # version 1.2 Juan Falgueras (98/8/21)
  9. #   Rewrite of finishNickname using prompt::statusLineComplete and deleting substituteNickname
  10. # TO DO
  11. #   Take the folders (Not ended in " Folder") from the Eudora Folder (recursively) to
  12. #   build the MailBoxes.  Not ask for it to Eudora via AE.
  13. #     
  14. # Class message: A message
  15. # Elements:
  16. #     field by name
  17. # Properties:
  18. #     body  string  -- the body of the message
  19. #     priority  integer  -- the priority
  20. #     label  integer  -- the index of the label
  21. #     status  unread/already read/replied/forwarded/redirected/not sendable/sendable/queued/sent/never sent  -- the message status
  22. #     sender  string  -- the sender as appearing in the message summary
  23. #     date  string  [r/o]  -- the date as appearing in the message summary
  24. #     subject  string  -- the subject as appearing in the message summary
  25. #     size  integer  [r/o]  -- the size of the message
  26. #     outgoing  boolean  [r/o]  -- is the message is outgoing?
  27. #     signature  none/standard/alternate  -- which signature the message should have
  28. #     QP  boolean  -- is Eudora allowed to encode text?
  29. #     return receipt  boolean  -- is a return receipt is requested?
  30. #     wrap  boolean  -- should the text be wrapped when sent?
  31. #     tab expansion  boolean  -- should tabs get expanded to spaces?
  32. #     keep copy  boolean  -- should a copy should be kept after message is sent?
  33. #     preserve macintosh info  boolean  -- should Macintosh information always be sent with attachments?
  34. #     attachment encoding  AppleDouble/AppleSingle/BinHex/uuencode  -- the type of encoding to use for attachments
  35. #     show all headers  boolean  -- should all headers be visible?
  36. #     transliteration table  integer  -- the resource id of the transliteration table
  37. #     will be fetched  boolean  -- will the message be [re]fetched on next check?
  38. #     will be deleted  boolean  -- will the message be deleted from server on next check?
  39. # 
  40.  
  41. alpha::menu eudoraMenu 0.1 "•138" {global Mail} {
  42.     addMode Mail dummyMail {} {eudoraMenu}
  43.     set unixMode(rmail) {Mail}
  44. } uninstall {this-file} help {file "Eudora"}
  45.  
  46. proc eudoraMenu {} {}
  47. proc dummyMail {} {}
  48.  
  49. namespace eval ::Mail {}
  50.  
  51. if {![info exists trashName]} {set trashName "Trash"}
  52.  
  53. newPref v prefixString {> } Mail
  54. newPref v wordBreak {\w+} Mail
  55. newPref v wordBreakPreface {(\W)} Mail
  56. newPref f wordWrap {1} Mail
  57. newPref f autoMark 0 Mail
  58. newPref v eudoraPrefFolder  [file join [file dirname $PREFS] "Eudora Folder"] Mail
  59. newPref file eudoraNicknames "" Mail
  60. newPref v eudoraNicknamesFolder "" Mail
  61. newPref f tossOnQueue 1 Mail
  62. newPref f switchOnQueue 0 Mail
  63.  
  64. set mailKeywords {{Subject:} {To:} {From:} {Cc:} {Date:} {Sender:}}
  65. regModeKeywords -k blue -e {>} Mail $mailKeywords
  66.  
  67. # bind tab
  68. Bind 0x30   mailTab Mail
  69.  
  70. #===============================================================================
  71. # Utility routines.
  72. proc eudoraFolder {} { nameObject euMF {'TEXT'()} [nullObject] }
  73. proc mailboxByName {name} { nameObject euMB "“$name”" [eudoraFolder] }
  74. proc mailboxByIndex {ind} { indexObject euMB $ind [eudoraFolder] }
  75. proc eudoraMessage {msg_id mailbox} { indexObject euMS $msg_id [mailboxByName $mailbox] }
  76. proc mailboxProperty {prop mailbox} { objectProperty 'CSOm' $prop [mailboxByName $mailbox] }
  77. proc messageProperty {prop msg_id mailbox} { objectProperty 'CSOm' $prop [eudoraMessage $msg_id $mailbox] }
  78.  
  79. # Get path-name for indicated mailbox
  80. proc mailboxPathName {name} {
  81.     extractPath [mailboxProperty euFS $name]
  82. }
  83.  
  84. proc mailboxPathIndex {ind} {
  85.     set res [objectProperty 'CSOm' euFS [mailboxByIndex $ind]]
  86.     return [extractPath $res]
  87. }
  88.  
  89. #===============================================================================
  90.  
  91.  
  92. proc checkMailPath {} {
  93.     set name [nameFromAppl CSOm]
  94.     launch $name
  95.     return [file tail $name]
  96. }
  97.  
  98. if {![info exists eudoraBoxes]} {
  99.     set eudoraBoxes {In Out}
  100. }
  101.  
  102. Menu -n $eudoraMenu -p eudoraProc {
  103.     "<SbackgroundEudora"
  104.     "<Seudora"
  105.     "help"
  106.     "(-"
  107.     "/e<U<BnewMessage"
  108.     "cc"
  109.     "bcc"
  110.     "(-"
  111.     "/f<U<Bsend"
  112.     "/g<U<S<Breply"
  113.     "/g<U<I<S<BreplyToAll"
  114.     "(-"
  115.     "/,<SfinishNickname"
  116.     "editNicknames"
  117.     "updateNicknames"
  118.     "(-"
  119.     "updateMailboxLists"
  120.     {Menu -n open -p mailBoxProc -m {}}
  121.     {Menu -n moveTo -p transferProc -m {}}
  122.     "(-"
  123.     {Menu -n tellEudora -p eudoraProc {
  124.         "/k<UflushOutbox"
  125.         "/l<UcheckForMail"
  126.         "(-"
  127.         startNotifying
  128.         stopNotifying}}
  129.     {Menu -n mailFlags -p mailFlagsProc {alertOnIncoming flushOnCheck immediateSend -- trashName}}
  130. }
  131. Menu -n open -p mailBoxProc -m [concat [list "/h<U<BOpen Mailbox…" "(-"] $eudoraBoxes]
  132. Menu -n moveTo -p transferProc -m [concat [list "/i<U<BMove To Trash" "/j<U<BMove To Mailbox…" "(-"] $eudoraBoxes]
  133.  
  134. # JF 98/08/07
  135. if {$MailmodeVars(eudoraNicknames) == ""} {
  136.     if [file exists "$MailmodeVars(eudoraPrefFolder):Eudora Nicknames"] {
  137.         set MailmodeVars(eudoraNicknames) "$MailmodeVars(eudoraPrefFolder):Eudora Nicknames"
  138.     }
  139. }
  140. if {$MailmodeVars(eudoraNicknamesFolder) == ""} {
  141.     if [file exists "$MailmodeVars(eudoraPrefFolder):Nicknames Folder"] {
  142.         set MailmodeVars(eudoraNicknamesFolder) "$MailmodeVars(eudoraPrefFolder):Nicknames Folder"
  143.     }
  144. }
  145.  
  146.  
  147.  
  148. proc updateNicknames {{arg ""}} {
  149.     global euNicknames MailmodeVars
  150. # JF 98/08/07
  151.     if {(![info exists MailmodeVars(eudoraNicknames)] && ![info exists MailmodeVars(eudoraNicknamesFolder)])\
  152.                   || \
  153.       (![file exists $MailmodeVars(eudoraNicknames)] && ![file exists $MailmodeVars(eudoraNicknamesFolder)])} {
  154.         if {![string length $arg]} {
  155.             alertnote {Please locate the file "Eudora Nicknames" or/and folder "Nicknames Folder" using Mail mode's prefs.}
  156.         }
  157.         return
  158.     }
  159.     
  160.     if [file exists $MailmodeVars(eudoraNicknames)] {
  161.         set fd [open $MailmodeVars(eudoraNicknames)]
  162.         foreach a [split [read $fd] "\n"] {
  163.             if {[llength $a] && [lindex $a 0] == "alias"} {
  164.                 set euNicknames([lindex $a 1]) [lindex $a 2]
  165.             }
  166.         }
  167.         close $fd
  168.     }
  169.     if [expr {$MailmodeVars(eudoraNicknamesFolder) != ""} && [file isdirectory $MailmodeVars(eudoraNicknamesFolder)]] {
  170.         foreach f [glob "$MailmodeVars(eudoraNicknamesFolder):*"] {
  171.             set fd [open "$f"]
  172.             foreach a [split [read $fd] "\n"] {
  173.                 if {[regexp {\{\}\[\]} $a]} {
  174.                     alertnote "ERROR: Braces in “$f”"
  175.                     close $fd
  176.                     return
  177.                 } else {
  178.                     if {[llength $a] && [lindex $a 0] == "alias"} {
  179.                         set euNicknames([lindex $a 1]) [lindex $a 2]
  180.                     }
  181.                 }
  182.             }
  183.             close $fd
  184.         }
  185.     }
  186. }
  187. updateNicknames quiet
  188.  
  189.  
  190. proc finishNickname {} {
  191. #     I don't know well the mechanism of prompt::statusLineComplete and I needed
  192. #     to use a global :( preMailNick to prefix the previous entered string before each
  193. #     search for matchings in nicknames
  194. # Another interesting thing should be to show the initial matched list just at
  195. #     starting of the command.  You need now to add a char to start to see the list
  196.  
  197.     global euNicknames preMailNick
  198.     set pos [getPos]
  199.     backwardWord
  200.     if {[getPos] == 0} {
  201.         set preMailNick ""
  202.     } else {
  203.         set preMailNick [getText [getPos] $pos]
  204.     }
  205.  
  206.     goto $pos
  207.     ;proc pMatches {pat} {
  208.         global euNicknames preMailNick
  209.         set matches ""
  210.         foreach w [array names euNicknames] {
  211.             if {[string match "$preMailNick$pat*" $w]} {
  212.                 lappend matches $w
  213.             }
  214.         }
  215.         return $matches
  216.     }
  217.     
  218.     set s [prompt::statusLineComplete "Nick" pMatches -initialpatt "$preMailNick"]
  219.     if {$preMailNick != ""} {
  220.         backwardDeleteWord
  221.     }
  222.     insertText $s
  223. }
  224.  
  225. proc editNicknames {} {
  226.     global MailmodeVars
  227. # JF 98/08/07
  228.     if {![info exists MailmodeVars(eudoraNicknamesFolder)]} {
  229.         edit -w "$MailmodeVars(eudoraNicknames)"
  230.     } else {
  231.         edit -w [getfile "Which of them?" "$MailmodeVars(eudoraNicknamesFolder)"]
  232.     }
  233. }
  234.  
  235.  
  236. proc openMailbox {} {
  237.     global eudoraBoxes eudoraLastFolder modifiedVars
  238.     if {[info exists eudoraLastFolder]} {
  239.         set fold $eudoraLastFolder
  240.     } else {
  241.         set fold [lindex $eudoraBoxes 0]
  242.     }
  243.     set eudoraLastFolder [sPromptChoices "Open mailbox" $fold $eudoraBoxes]
  244.     mailBoxProc dummy $eudoraLastFolder
  245.     lappend modifiedVars eudoraLastFolder
  246. }
  247.  
  248.  
  249. proc moveToFolderProc {curr c} {
  250.     global eudoraBoxes
  251.     if {$c != "\t"} {return $c}
  252.     
  253.     set matches {}
  254.     foreach w $eudoraBoxes {
  255.         if {[string match "$curr*" $w]} {
  256.             lappend matches $w
  257.         }
  258.     }
  259.     if {![llength $matches]} {
  260.         beep
  261.     } else {
  262.         return [string range [largestPrefix $matches] [string length $curr] end]
  263.     }
  264.     return ""
  265. }
  266.  
  267.  
  268. proc moveToMailbox {} {
  269.     global eudoraLastFolder modifiedVars trashName
  270.     
  271.     if {[info exists eudoraLastFolder]} {
  272.         set fold $eudoraLastFolder
  273.     } else {
  274.         set fold $trashName
  275.     }
  276.     
  277.     set folder [statusPrompt -f "Move to ($fold): " moveToFolderProc]
  278.     if {[string length $folder]} {
  279.         doFolderMove $folder
  280.         set eudoraLastFolder $folder
  281.         lappend modifiedVars eudoraLastFolder
  282.     } else {
  283.         doFolderMove $fold
  284.     }
  285. }
  286.  
  287.  
  288. proc eudoraProc {menu item} {
  289.     global HOME eudoraMenu
  290.  
  291.     switch -- $item {
  292.         "eudora"        {app::launchFore CSOm}
  293.         "backgroundEudora"        {launch [nameFromAppl CSOm]}
  294.         "help"            {edit -r [file join $HOME Help Eudora]}
  295.         "cc"            {eudoraCc}
  296.         "bcc"            {eudoraBcc}
  297.         "newMessage"    {mailNewMsg}
  298.         "reply"            {mailReplymsg}
  299.         "replyToAll"    {mailReplymsg 1}
  300.         "send"            {checkMailPath; mailSendCreatedMsg}
  301.         "flushOutbox"    {checkMailPath; mailFlushOut}
  302.         "checkForMail"    {checkMailPath; mailCheck}
  303.         "startNotifying" "checkMailPath; startNotifying"
  304.         "stopNotifying"    "checkMailPath; stopNotifying"
  305.         "moveToTrash"    {mailTrashmsg}
  306.         "Move To Trash"    {mailTrashmsg}
  307.         "Create New"    {eudoraNewMailbox}
  308.         "Delete"        {eudoraDeleteMailbox}
  309.         default            $item
  310.     }
  311. }
  312.  
  313. if {![info exists mailflushOnCheck]} {set mailflushOnCheck 1}
  314. if {![info exists mailalertOnIncoming]} {set mailalertOnIncoming 1}
  315. if {![info exists mailimmediateSend]} {set mailimmediateSend 0}
  316. markMenuItem mailFlags flushOnCheck $mailflushOnCheck
  317. markMenuItem mailFlags alertOnIncoming $mailalertOnIncoming
  318. markMenuItem mailFlags immediateSend $mailimmediateSend
  319.  
  320.  
  321. proc mailFlagsProc {menu flag} {
  322.     global mail$flag modifiedVars trashName
  323.  
  324.     if {$flag == "trashName"} {
  325.         set trashName [prompt "Trash folder name:" $trashName]
  326.         lappend modifiedVars trashName
  327.         return
  328.     }
  329.     
  330.  
  331.     set mail$flag [expr 1 - [set mail$flag]]
  332.     lappend modifiedVars mail$flag
  333.     markMenuItem mailFlags $flag [set mail$flag]
  334. }
  335.  
  336.  
  337. proc mailBoxProc {menu item} {
  338.     global inboxMembers ALPHA eudoraBoxes modifiedVars
  339.     global tileLeft tileTop tileHeight errorHeight defWidth
  340.  
  341.     if {$item == "Open Mailbox"} {
  342.         return [openMailbox]
  343.     }
  344.     
  345.     killMailboxWindow
  346.  
  347.     checkMailPath
  348.     switchTo $ALPHA
  349.  
  350.     global trashedMsgs$item
  351.     set trashedMsgs$item {}
  352.     
  353.     set inboxMembers {}
  354.     set text {}
  355.     set ind 1
  356.     foreach msg [mailSenders $item] {
  357.         set from [mailAddr [lindex $msg 0]]
  358.         set tag {}
  359.         while {[lsearch $inboxMembers $from$tag] >= 0} {
  360.             if {![string length $tag]} {
  361.                 set tag { <2>}
  362.             } else {
  363.                 regexp {[0-9]+} $tag tag
  364.                 set tag " <[expr $tag + 1]>"
  365.             }
  366.         }
  367.         append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t∞$item∞$ind\r" "$from$tag" [lindex $msg 1]]
  368.         lappend inboxMembers $from$tag
  369.         incr ind
  370.     }
  371.     if {![string length $text]} {
  372.         alertnote "No messages in '$item'!"
  373.         return
  374.     }
  375.     
  376.     new -n "* MAILBOX '$item' *" -g $tileLeft $tileTop $defWidth $errorHeight -m Brws
  377.     insertText "(<cr> to go to message)\r-----\r$text"
  378.     
  379.     select [nextLineStart [nextLineStart [minPos]]] [nextLineStart [nextLineStart [nextLineStart [minPos]]]]
  380.     winReadOnly
  381.     message ""
  382. }
  383.  
  384. proc eudoraNewMailbox {} {
  385. }
  386.  
  387.  
  388. proc eudoraDeleteMailbox {} {
  389. }
  390.  
  391.  
  392. proc killMailboxWindow {} {
  393.     if {[set ind [lsearch [winNames] {*MAILBOX*}]] >= 0} {
  394.         set win [lindex [winNames] $ind]
  395.         bringToFront $win
  396.         killWindow
  397.     }
  398. }
  399.  
  400.  
  401. proc mailGotoMatch {} {
  402.     if {[regexp {∞(.+)∞([0-9]+)} [getText [lineStart [getPos]] [nextLineStart [getPos]]] dummy folder ind]} {
  403.         global trashedMsgs$folder
  404.         
  405.         set deleted 0
  406.         for {set i 1} {$i < $ind} {incr i} {
  407.             if {[lsearch [set trashedMsgs$folder] $i] >= 0} {
  408.                 incr deleted
  409.             }
  410.         }
  411.         mailOpen $folder [expr $ind - $deleted] $ind
  412.     }
  413. }
  414.  
  415.  
  416. proc mailAddr {name} {
  417.     if {![regexp {<(.*)>} $name dummy addr]} {
  418.         regexp {^[^ ]+} $name addr
  419.     }
  420.     return $addr
  421. }
  422.  
  423.  
  424. proc mailSenders {folder} {
  425.     set cnt [mailCountMsgs $folder]
  426.     set msgs {}
  427.     for {set i 1} {$i <= $cnt} {incr i} {
  428.         set subject {}
  429.         if {![regexp -nocase {From: (.*)} [mailGetField from $folder $i] dummy from]} {
  430.             error "No from field!"
  431.         }
  432.         regexp {Subject: (.*)} [mailGetField subject $folder $i] dummy subject
  433.         lappend msgs [list $from $subject]
  434.     }
  435.     return $msgs
  436. }    
  437.  
  438.  
  439. proc eudoraCc {} {
  440.     if {![catch {set res [search -s -f 1 -r 1 -i 1 {cc:.*} 0]}]} {
  441.         goto [lindex $res 0]
  442.         endOfLine
  443.     } else {
  444.         beginningOfBuffer
  445.         nextLine
  446.         insertText "Cc: \r"
  447.         backwardChar
  448.     }
  449. }
  450.  
  451.  
  452. proc eudoraBcc {} {
  453.     if {![catch {set res [search -s -f 1 -r 1 -i 1 {bcc:.*} 0]}]} {
  454.         goto [lindex $res 0]
  455.         endOfLine
  456.     } else {
  457.         beginningOfBuffer
  458.         nextLine
  459.         insertText "Bcc: \r"
  460.         backwardChar
  461.     }
  462. }
  463.  
  464.  
  465. proc mailFlushOut {} {
  466.     global MailmodeVars
  467.     message "Telling Eudora to flush messages…"
  468.  
  469.     AEBuild 'CSOm' CSOm eCon eSen bool(«01») eChk bool(«00»)
  470.     message ""
  471. }
  472.  
  473.  
  474. proc mailCheck {} {
  475.     global MailmodeVars mailflushOnCheck
  476.     message "Told Eudora to check for new mail…"
  477.  
  478.     AEBuild 'CSOm' CSOm eCon eSen bool(«0$mailflushOnCheck») eChk bool(«01»)
  479. }
  480.  
  481.  
  482. proc mailReplymsg {{toall 0}} {
  483.     global inboxMembers
  484.  
  485.     set prefix "> "
  486.     set res [search -s -f 1 -r 1 {^>==} [minPos]]
  487.     set header [getText [minPos] [lindex $res 0]]
  488.     
  489.     set from [mailGetFrom]
  490.     if {![regexp {Subject: ([^\r]*)} $header dummy subject]} {set subject ""}
  491.     set body [getText [expr [lindex $res 1] + 1] [maxPos]]
  492.  
  493.     regsub -all "\r" $body "\r$prefix" body
  494.     mailNewMsg $from "" "" "Re: $subject" "\r$prefix$body\r"
  495. }
  496.  
  497. proc transferProc {menu item} {
  498.     if {$item == "Move To Trash"} {
  499.         mailTrashmsg
  500.     } elseif {$item == "Move To Mailbox"} {
  501.         moveToMailbox
  502.     } else {
  503.         doFolderMove $item
  504.     }
  505. }
  506.  
  507.  
  508. proc mailTrashmsg {} {
  509.     global trashName
  510.     doFolderMove $trashName
  511. }
  512.  
  513. proc doFolderMove {toFolder} {
  514.     # Is this a summary or msg window?
  515.     if {[regexp "MAILBOX" [win::CurrentTail]]} {
  516.         if {![regexp {∞(.*)∞([0-9]+)} [getText [getPos] [nextLineStart [getPos]]] dummy folder orig]} {
  517.             beep
  518.             return
  519.         }
  520.         if {$toFolder == $folder} return
  521.         global trashedMsgs$folder
  522.  
  523.         set deleted 0
  524.         for {set i 1} {$i < $orig} {incr i} {
  525.             if {[lsearch [set trashedMsgs$folder] $i] >= 0} {
  526.                 incr deleted
  527.             }
  528.         }
  529.         set number [expr $orig - $deleted]
  530.         set summary 1
  531.     } else {
  532.         set pos [lindex [search -f 1 -r 1 {^Msg} 0] 0]
  533.         set text [getText $pos [nextLineStart $pos]]
  534.         regexp {"([^"]+)" \(([0-9]+)\).*"([^"]+)"} $text dummy number orig folder
  535.         if {$toFolder == $folder} return
  536.         set summary 0
  537.  
  538.         global trashedMsgs$folder
  539.     }
  540.     
  541.     message "Moving msg $number ($orig) of folder '$folder' to '$toFolder'"
  542.     moveMsg $number $folder $toFolder
  543.     if {!$summary} killWindow
  544.  
  545.     lappend trashedMsgs$folder $orig
  546.     
  547.     # Find summary info and delete it
  548.     set win [win::CurrentTail]
  549.     if {[regexp "MAILBOX" $win]} {
  550.         setWinInfo read-only 0
  551.     
  552.         set inds [search -f 1 -r 1 "∞$folder∞$orig\$" 0]
  553.         set pos [lindex $inds 0]
  554.         deleteText [lineStart $pos] [nextLineStart $pos]
  555.     
  556.         if {[string length [search -n -f 1 -r 0 {∞} 0]]} {
  557.             setWinInfo dirty 0
  558.             setWinInfo read-only 1
  559.     
  560.             nextLine
  561.             upBrowse
  562.         } else {
  563.             setWinInfo dirty 0
  564.             killWindow
  565.         }
  566.     }
  567. }
  568.  
  569.     
  570. proc mailGetFrom {} {
  571.     set res [search -s -f 1 -r 1 {>==} [minPos]]
  572.     set header [getText [minPos] [lindex $res 0]]
  573.     if {[regexp {From: ([^\r]*)} $header dummy from]} {
  574.         return [mailAddr $from]
  575.     }
  576.     error "No from line"
  577. }
  578.  
  579.     
  580.  
  581. proc mailSendCreatedMsg {} {
  582.     global MailmodeVars mailimmediateSend
  583.     
  584.     set name [checkMailPath]
  585.     set res [search -s -f 1 -r 0 {>==text follows this line==<} [minPos]]
  586.     set header [getText [minPos] [lindex $res 0]]
  587.     
  588.     if {![regexp {To: ([^\r]*)} $header dummy to]} {set to ""}
  589.     if {![regexp {[Cc]+: ([^\r]*)} $header dummy cc]} {set cc ""}
  590.     if {![regexp {Subject: ([^\r]*)} $header dummy subject]} {set subject ""}
  591.  
  592.     set body [getText [expr [lindex $res 1] + 1] [maxPos]]
  593.     
  594.     mailCreateMsg
  595.     mailSetField to $to
  596.     mailSetField cc $cc
  597.     mailSetField subject $subject
  598.     mailSetField "" $body
  599.     
  600.     if {$MailmodeVars(tossOnQueue)} {
  601.         setWinInfo dirty 0
  602.         killWindow
  603.     }
  604.  
  605.     mailQueueLast
  606.  
  607.     if {$MailmodeVars(switchOnQueue)} {
  608.         switchTo $name
  609.     }
  610.  
  611.     if {$mailimmediateSend} {
  612.         mailFlushOut
  613.     } else {
  614.         message "Message queued…"
  615.     }
  616. }
  617.  
  618.     
  619. proc mailNewMsg {{to ""} {cc ""} {bcc ""} {subject ""} {body ""}} {
  620.     new -n "New Mail" -m Mail
  621.  
  622.     insertText "To: $to\rSubject: $subject\r>==text follows this line==<\r$body"
  623.     setWinInfo dirty 0
  624.     goto [minPos]
  625.     refresh
  626.     mailTab
  627. }
  628.  
  629.  
  630. proc mailTab {} {
  631.     global mailKeywords
  632.     if {[catch {search -s -f 1 -r 1 -i 1 "([join $mailKeywords {|}]|^>)" [getPos]} res]} {
  633.         insertText "\t"
  634.         return
  635.     }
  636.     if {[lookAt [lindex $res 0]] == ">"} {
  637.         select [nextLineStart [lindex $res 1]] [maxPos]
  638.     } else {
  639.         goto [expr [lindex $res 1] + 1]
  640.         endLineSelect
  641.     }
  642. }
  643.  
  644. proc mailOpen {folder i originalNum} {
  645.     global tileLeft tileTop tileHeight trashedMsgs$folder defWidth
  646.     
  647.     set from [mailGetField From $folder $i]
  648.     set to [mailGetField To $folder $i]
  649.     set subject [mailGetField Subject $folder $i]
  650.     set sender [mailGetField Sender $folder $i]
  651.     set date [mailGetField Date $folder $i]
  652.     set cc [mailGetField cc $folder $i]
  653.     set contents [mailGetField "" $folder $i]
  654.     
  655. #===============================================================================
  656.     global tileHeight tileTop tileLeft errorHeight errorDisp defWidth
  657.     set top $tileTop
  658.     set geo [getGeometry]
  659.     if {([lindex $geo 0] != $tileLeft) || ([lindex $geo 1] != $top) || ([lindex $geo 2] != $defWidth) || ([lindex $geo 3] != $errorHeight) } {
  660.         moveWin $tileLeft $top
  661.         sizeWin $defWidth $errorHeight
  662.     }
  663.     set mar 28
  664.     incr top [expr $errorHeight + $mar]
  665. #===============================================================================
  666.     set name [new -n "MAIL" -g $tileLeft $top $defWidth [expr $errorDisp - 5] -m Mail]
  667.  
  668.     set text {}
  669.     if {[string length $subject]} {append text "$subject\r"}
  670.     if {[string length $to]} {append text "$to\r"}
  671.     if {[string length $from]} {append text "$from\r"}
  672.     if {[string length $date]} {append text "$date\r"}
  673.     if {[string length $cc]} {append text "$cc\r"}
  674.     if {[string length $sender]} {append text "$sender\r"}
  675.     append text "Msg \"$i\" ($originalNum) of mailbox \"$folder\"     Reply     Trash\r"
  676.     insertText "${text}>===============================================================================
  677. $contents
  678. "
  679.     goto [minPos]
  680.     goto [lindex [search -f 1 -m 0 -r 1 {^Msg "} [minPos]] 0]
  681.     set pos [getPos]
  682.     regexp -indices {([0-9]+).*mailbox "(.+)".*(Reply).*(Trash)} [getText $pos [nextLineStart $pos]] dummy num fold rep tra
  683.     colorSelectPos [expr $pos + [lindex $num 0]] [expr 1 + $pos + [lindex $num 1]] bold 12
  684.     colorSelectPos [expr $pos + [lindex $fold 0]] [expr 1 +$pos + [lindex $fold 1]] bold 12
  685.     hyperSelectPos [expr $pos + [lindex $rep 0]] [expr 1 +$pos + [lindex $rep 1]] "mailReplymsg"
  686.     hyperSelectPos [expr $pos + [lindex $tra 0]] [expr 1 +$pos + [lindex $tra 1]] "mailTrashmsg"
  687.  
  688.     winReadOnly
  689.     refresh
  690. }
  691.  
  692. proc colorSelectPos {from to ind ind2} {
  693.     insertColorEscape $from $ind
  694.     insertColorEscape $to $ind2
  695. }
  696.  
  697. proc hyperSelectPos {from to text} {
  698.     if {$from == $to} {
  699.         beep
  700.         return
  701.     }
  702.     insertColorEscape $from 3
  703.     insertColorEscape $from 15 $text
  704.     insertColorEscape $to 12
  705.     insertColorEscape $to 0
  706. }
  707.  
  708. proc mailFixMenus {} {
  709.     global eudoraMenu
  710.     
  711.     set ins {}
  712.     set outs {}
  713.     
  714.     set cnt [mailCountMsgs in]
  715.     for {set i 1} {$i <= $cnt} {incr i} {
  716.         lappend ins [mailGetField from in $i]
  717.     }
  718.     Menu -n in {}
  719.     foreach item $ins {
  720.         addMenuItem -l "" in $item
  721.     }
  722.     
  723.     set cnt [mailCountMsgs out]
  724.     for {set i 1} {$i <= $cnt} {incr i} {
  725.         lappend outs [mailGetField from out $i]
  726.     }
  727.     Menu -n out {}
  728.     foreach item $outs {
  729.         addMenuItem -l "" out $item
  730.     }
  731. }
  732.  
  733.  
  734. # make message at end of mailbox "out" of mail folder ""
  735. proc mailCreateMsg {} {
  736.     createThingAtEnd 'CSOm' [mailboxByName Out] euMS
  737. }
  738.  
  739.  
  740. # Move msg w/ specified index between folders, including to Trash.
  741. proc moveMsg {msg infolder outfolder} {
  742.     AEBuild -r 'CSOm' core move {----} "obj \{form:indx, want:type(euMS), seld:$msg, from:obj \{form:name, want:type(euMB), seld:“$infolder”, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}" {insh} "insl\{kobj:obj \{form:name, want:type(euMB), seld:“$outfolder”, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}, kpos:end \}"
  743. }
  744.  
  745.  
  746. # set field "fld" of message 0 to "to"
  747. proc mailSetField {fld to} {
  748.     AEBuild -r 'CSOm' core setd {----} "obj \{form:name, want:type(euFd), seld:“$fld”, from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" data "“$to”"
  749. }
  750.  
  751. proc mailGetField {field folder msg} {
  752.     if {[catch {getObjectData 'CSOm' euFd $field [eudoraMessage $msg $folder]} res]} {
  753.         return ""
  754.     } else {
  755.         return $res
  756.     }
  757. }
  758.  
  759. # obj {want:type('prop'), from:obj {form:indx, want:type(euMS), seld:$msg, from:obj {form:name, want:type(euMB), seld:“$folder”, from:obj {form:name, want:type(euMF), seld:'TEXT'(), from:'null'()}}}, form:'prop', seld:type('euST')}
  760.  
  761. proc mailMsgStatus {folder msg} {
  762.     if {[catch {AEBuild -r 'CSOm' core getd {----} "obj \{want:type('prop'), from:obj \{form:indx, want:type(euMS), seld:$msg, from:obj \{form:name, want:type(euMB), seld:“$folder”, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}, form:'prop', seld:type('euST')\}"} text]} {
  763.         return ""
  764.     }
  765.     set from [string first "“" $text]
  766.     set to [string first "”" $text]
  767.     return [string range $text [expr $from + 1] [expr $to - 1]]
  768. }
  769.  
  770. proc mailQueueLast {} {
  771.     AEBuild -r 'CSOm' CSOm eQue ---- {obj {form:indx, want:type(euMS), seld:1, from:'null'()}}
  772. }
  773.  
  774. # CSOm\eAtc{'----':obj {form:indx, want:type(euMS), seld:1, from:'null'()}, eDcl:[fss («486172643A4465736B746F7020466F6C6465723A62756773»)]}
  775. proc mailAttachmentDoesntWork {name} {
  776.     AEBuild -r 'CSOm' CSOm eAtc ---- {obj {form:indx, want:type(euMS), seld:1, from:'null'()}} eDcl [makeAlis $name]
  777. }
  778.  
  779. # core\setd{'----':obj {form:prop, want:type(prop), seld:type(euPY), from:obj {form:indx, want:type(euMS), seld:1, from:'null'()}}, data:1}
  780. proc mailSetNumberProperty {prop to} {
  781.     AEBuild -r 'CSOm' core setd ---- "obj \{form:prop, want:type(prop), seld:type($prop), from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" data $to
  782. }    
  783.  
  784.  
  785. proc mailCountMsgs {mbox} {
  786.     return [countObjects 'CSOm' [mailboxByName "$mbox"]  euMS]
  787. }
  788.  
  789. proc mailCountMailboxes {} {
  790.      return [countObjects 'CSOm' [eudoraFolder] euMB]
  791. }
  792.     
  793.  
  794. proc updateMailboxLists {} {
  795.     set num [mailCountMailboxes]
  796.     for {set i 1} {$i <= $num} {incr i} {
  797.         set name [file tail [mailboxPathIndex $i]]
  798.         message $name
  799.         lappend boxes $name
  800.     }
  801.     
  802.     global eudoraBoxes modifiedVars
  803.     lappend modifiedVars eudoraBoxes
  804.     set eudoraBoxes $boxes
  805.     Menu -n open -p mailBoxProc -m $eudoraBoxes
  806.     Menu -n moveTo -p transferProc -m $eudoraBoxes
  807.     message "done."
  808. }
  809.  
  810.  
  811. #===============================================================================
  812.  
  813. eventHandler CSOm eNot "eudoraHandler"
  814.  
  815. # a sample 'msgs': obj {want:type(euMS), from:obj {want:type(euMB), from:obj {want:type(euMF), from:'null'(), form:name, seld:'TEXT'()}, form:name, seld:“In”}, form:indx, seld:18}, obj {want:type(euMS), from:obj {want:type(euMB), from:obj {want:type(euMF), from:'null'(), form:name, seld:'TEXT'()}, form:name, seld:“In”}, form:indx, seld:19}
  816. proc eudoraHandler {it} {
  817.     global blah mailalertOnIncoming
  818.     message ""
  819.     if {[regexp {eWHp:wArv.*\[(obj.*)\], &repq} $it dum1 msgs]} {
  820.         set ids [getMsgIDs $msgs]
  821.         if {$mailalertOnIncoming} {
  822.             mailBrowser In $ids
  823.         }
  824.     } else {
  825.         message "No mail"
  826.     }
  827. }
  828.  
  829.  
  830. proc mailBrowser {folder ids} {
  831.     global inboxMembers ALPHA
  832.     global tileLeft tileTop defWidth tileHeight errorHeight
  833.  
  834.     checkMailPath
  835.     switchTo $ALPHA
  836.  
  837.     global trashedMsgs$folder
  838.     set trashedMsgs$folder {}
  839.     
  840.     set inboxMembers {}
  841.     set text {}
  842.  
  843.     foreach id $ids {
  844.         regexp {From: (.*)} [mailGetField from $folder $id] dummy from
  845.         set from [mailAddr $from]
  846.         set subject {}
  847.         regexp {Subject: (.*)} [mailGetField subject $folder $id] dummy subject
  848.         set tag {}
  849.         while {[lsearch $inboxMembers $from$tag] >= 0} {
  850.             if {![string length $tag]} {
  851.                 set tag { <2>}
  852.             } else {
  853.                 regexp {[0-9]+} $tag tag
  854.                 set tag " <[expr $tag + 1]>"
  855.             }
  856.         }
  857.         append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t∞In∞$id\r" "$from$tag" $subject]
  858.         lappend inboxMembers $from$tag
  859.     }
  860.     if {![string length $text]} {
  861.         alertnote "No messages!"
  862.         return
  863.     }
  864.     
  865.     if {[set ind [lsearch [winNames] "*Incoming MAILBOX*"]] >= 0} {
  866.         bringToFront [lindex [winNames] $ind]
  867.         setWinInfo read-only 0
  868.         endOfBuffer
  869.         insertText $text
  870.     } else {
  871.         killMailboxWindow
  872.         new -n "* Incoming MAILBOX *" -g $tileLeft $tileTop $defWidth $errorHeight -m Brws
  873.  
  874.         insertText "(<cr> to go to message)\r-----\r$text"
  875.     }
  876.     select [nextLineStart [nextLineStart [minPos]]] [nextLineStart [nextLineStart [nextLineStart [minPos]]]]
  877.     winReadOnly
  878.     message ""
  879. }
  880.  
  881.  
  882. proc getMsgIDs {text} {
  883.     if {[regexp -indices {seld:([0-9]+)} $text dummy ind]} {
  884.         return [concat [string range $text [lindex $ind 0] [lindex $ind 1]] [getMsgIDs [string range $text [lindex $ind 1] end]]]
  885.     }
  886. }
  887.  
  888. proc startNotifying {} {
  889.     global HOME ALPHA quitHooks
  890.     
  891.     AEBuild 'CSOm' CSOm nIns ---- [makeAlis [file join $HOME $ALPHA]]
  892. }
  893.  
  894. proc stopNotifying {} {
  895.     global HOME ALPHA
  896.     
  897.     AEBuild 'CSOm' CSOm nRem ---- [makeAlis [file join $HOME $ALPHA]]
  898. }
  899.  
  900.  
  901.  
  902.  
  903.